home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestIO < prev    next >
Encoding:
Text File  |  2000-05-18  |  1017 b   |  43 lines
  1. atalk <- AmigaTalk new
  2.  
  3. atalk newIO: 'Gimme a string:' title: 'This is a simple Requester:'
  4.  
  5. rval <- atalk getString
  6.  
  7. ( 'User entered: ', rval ) print
  8.  
  9. atalk setIOMessage: 'Enter your age (in months):'
  10. atalk setIOTitle:   'So, how old are you?'
  11.  
  12. rval <- atalk getInteger
  13.  
  14. ( 'User entered: ', rval asString) print
  15.  
  16. atalk setIOTitle:    'Can you see the string??'
  17. atalk setIOMessage:  'How is your eyesight?'
  18. atalk displayString: 'This a test for displayString!'
  19.  
  20. atalk setIOTitle:     'Can you see the integer??'
  21. atalk setIOMessage:   'How many fleas you have:'
  22. atalk displayInteger: 666
  23.  
  24. atalk setIOTitle:     'Which file would you like to see?'
  25. atalk setIODirectory: 'AmigaTalk:'
  26.  
  27. rval <- atalk getFileName
  28.  
  29. atalk displayFile: rval
  30.  
  31. scr <- Screen new:   'TestScreen' "Screen has to be known to AmigaTalk."
  32. scr setScreenModeID: 16r40D20001
  33. scr open
  34.  
  35. atalk setIOTitle:      'Select a Screen Mode:'
  36. atalk setIOScreenName: 'TestScreen'
  37.  
  38. rval <- atalk getScreenModeID
  39.  
  40. scr close
  41.  
  42. ('You selected ', (rval asString)) print
  43.